10 PRINT"[147]         WOCHENTAGS-BESTIMMUNG":FORI=1TO7:READW$(I):NEXT
20 PRINT" EINGABE: TT.MM.JJJJ"
30 A$="":INPUT" DATUM: ";A$:IFA$=""THENEND
40 D=VAL(MID$(A$,1,2))
50 M=VAL(MID$(A$,4,2))
60 J=VAL(MID$(A$,7,4))
70 IFM>2THEN90
80 M=M+12:J=J-1
90 N=D+2*M+INT(0.5*(M+1))+J+INT(J/4)-INT(J/100)+INT(J/400)+2
100 N=INT((N/7-INT(N/7))*7+0.5):N=N+1
110 PRINT" TAG:     ";W$(N)
120 GOTO30
130 DATASAMSTAG,SONNTAG,MONTAG,DIENSTAG,MITTWOCH,DONNERSTAG,FREITAG